home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00017_icon1 menu first frame.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  1.7 KB  |  42 lines
  1. on enterFrame
  2.   global IconList1, gCurrLabel, gTourVariables
  3.   if the frameLabel <> 0 then
  4.     gCurrLabel = the frameLabel
  5.   end if
  6.   isMemoryAvailable("continue the tour", 1200, 500)
  7.   sound stop 1
  8.   set the puppet of sprite 7 to 1
  9.   sprite(7).visible = 1
  10.   set the puppet of sprite 7 to 0
  11.   IconList1 = [:]
  12.   start = 6
  13.   addProp(IconList1, start, new(script("main icons"), "search", "internal", start, the loc of sprite start, 1))
  14.   start = start + 1
  15.   addProp(IconList1, start, new(script("main icons"), "graph", "internal", start, the loc of sprite start, 1))
  16.   start = start + 1
  17.   addProp(IconList1, start, new(script("main icons"), "write", "internal", start, the loc of sprite start, 1))
  18.   start = start + 1
  19.   addProp(IconList1, start, new(script("main icons"), "window", "internal", start, the loc of sprite start, 1))
  20.   start = start + 1
  21.   addProp(IconList1, start, new(script("main icons"), "web", "internal", start, the loc of sprite start, 1))
  22.   start = start + 1
  23.   addProp(IconList1, start, new(script("main icons"), "guide", "internal", start, the loc of sprite start, 1))
  24.   start = start + 1
  25.   addProp(IconList1, start, new(script("main icons"), "prefs", "internal", start, the loc of sprite start, 1))
  26.   start = start + 1
  27.   addProp(IconList1, start, new(script("main icons"), "stop", "internal", start, the loc of sprite start, 1))
  28. end
  29.  
  30. on exitFrame
  31.   global IconList1, gMenuButton, gMenuExit, gTourForwardArrow, gPlaySound
  32.   gPlaySound = 1
  33.   repeat with X = 6 to 13
  34.     iconObj = getaProp(IconList1, X)
  35.     Inscope(iconObj)
  36.   end repeat
  37.   Inscope(gMenuButton)
  38.   Inscope(gMenuExit)
  39.   Inscope(gTourForwardArrow)
  40.   setHandCursor([6, 7, 8, 9, 10, 11, 12, 13, 40, 41, 42, 43])
  41. end
  42.